home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / languages / _tile / f83 / dump < prev    next >
Encoding:
Text File  |  1992-04-28  |  400 b   |  26 lines
  1. .( Load dump routines... ) cr
  2.  
  3. locals
  4.  
  5. decimal
  6.  
  7. : .char 127 and dup 127 = if drop 46 then
  8.                 dup 32 < if drop 46 then emit ;
  9.  
  10. : dump16 { addr -- } 16 0 do addr i + c@ 3 .r loop ;
  11.  
  12. : char16 { addr -- } 16 0 do addr i + c@ .char loop ;
  13.  
  14. : dump ( addr -- )
  15.   hex
  16.   begin
  17.     24 0 do
  18.       dup 8 .r
  19.       dup dump16 space
  20.       dup char16 cr
  21.       16 +
  22.     loop
  23.   0 until drop ;
  24.  
  25. forth only
  26.